From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Apr 1996 02:41:15 +0000 (+0000)
Subject: (sit_for): Call swallow_events.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~84105
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ccddf4746cc31ebf96b222bf5bb1643c6fa1bda5;p=emacs.git

(sit_for): Call swallow_events.
---

diff --git a/src/dispnew.c b/src/dispnew.c
index c9a94cf37ed..25ac26dd951 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2367,6 +2367,8 @@ sit_for (sec, usec, reading, display)
 {
   Lisp_Object read_kbd;
 
+  swallow_events (display);
+
   if (detect_input_pending_run_timers (display))
     return Qnil;